﻿Public Class SigGunlukGirisCikisListe : Inherits ProcessReport

	Dim aralik As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Sigortalı kayıt listesi", "Tarih aralığını girin.")
				aralik = AddDateRange("Tarih", "nl", YMD(Today), YMD(Today))
			Case EventType.ValidateForm
				Rs = Sigortali.GirisCikisGunlukListe(Remote, aralik(1).get, aralik(2).get)
				Filter.Add("Giriş/çıkış", "gircik", "G:Giriş,C:Çıkış")
				Filter.Add("İşlem tarihine göre", "islemtard", "")
				Filter.Add("Statü", "statu", "")
				Filter.Add("Çıkış nedeni", "calismama", "")
				Filter.Recordset = Rs
				Buttons.Show("Reset")
				e.Result = True
			Case EventType.PageHeader
				Report.SetColumns("Sigorta no.;Kimlik no.;Adı soyadı;İşlem tar.;İşyeri no.;Statü;G/Ç;G/Ç tarihi;Kayıt;Çık.nedeni", "2;2;5;2;2;2;1;2;1;2", "l;l;l;d;c;c;c;d;c;c", "---")
			Case EventType.ReportDetail
				'Do Until Rs.EOF
				'	Report.Print(Rs("Sno"), Rs("Kimlik"), Trim(Rs("adi")) & " " & Trim(Rs("soyadi")), Rs("islemtard"), Rs("isyerino"), Rs("gircik"), Rs("girciktar"), Rs("kaykul"), Rs("calismama"))
				'	Rs.MoveNext()
				'Loop
				For Each Row In Rs
					Report.Print(Rs("sno"), Rs("kimlik"), Trim(Rs("adi")) & " " & Trim(Rs("soyadi")), Rs("islemtard"), Rs("isyerino"), Rs("statu"), Rs("gircik"), Rs("girciktar"), Rs("kaykul"), Rs("calismama"))
				Next
		End Select
	End Sub

End Class
